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EDTSWFSCOPY = start a COPY operation 19-fe0-1944 96:16:32 X-11 s-32 V 


0 ZTITLE “EDTSWFSCOPY = start a COPY operation’ 
fete MODULE EDTSWFSCOPY ( !' Start a COPY operation 
— = *'v04-000' ! File: WFSCOPY.BLI Edit: JBS1003 
9005. | BEGIN 
, ; PITTIIIIILILILILILL LILI LLL LLL TTL iti tii ii tiiiiiiiiiiiiiit 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
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ie THE INF ORMATION IN THIS SOFTWARE IS SU 
ie AND SHOULD NOT BE CONSTRUED AS AC 
it CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILIT 
ie SOFTWARE ON EQUIPMENT WHICH IS 


BJECT TO CHANGE WITHOUT NOTICE 
OMMITMENT BY DIGITAL EQUIPMENT 
Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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i FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 

; Start a COPY operation. 

; ENVIRONMENT: Runs at any access mode - AST reentrant 

2 AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

Ope MODIFIED BY: 
4 ! 1-001 - Original. dds 23-Feb-1981. This module was greeted by 
0 1-00 extracting routine EDT ssrAay crv from epic hetiaste 
47 ! 
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1-005 - Improve the appearance of the Listing. JBS 20-Jun-1983 
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15. 3 3-19 4 0: :14:3 


EDTSWFSCOPY = start a COPY operation 
14-Sep-1984 12:25:4 


Declarations 
SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


eager 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSSTART_CPY : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
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! 

MACROS: 

NONE 

! EQUATED SYMBOLS: 
NONE 
' 

! 

! 

' 

! 

! 
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i OWN STORAGE :~ 

NONE 

i EXTERNAL REFERENCES: 
In the routine 
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F 15 g 
OPY = start a COPY operation 16-Sep-1984 02:14:3 ¥A¥-11 Bliss-32 V4.0-74 S 
RT_CPY = start a copy operation 12-828218 4 03:38:28 DISKSYMCAASTERSLEDT SRCTUFSCOPY.BLI:1° 
ZSBTTL "EDTSSSTART_CPY = start a COPY operation’ 
GLOBAL ROUTINE EDTSSSTART CPY ( 


) : NOVALUE = 


! Start a COPY operation 
! Target buffer 


oe 
} FUNCTIONAL DESCRIPTION: 

Start copy. Initialize for a copy operation. 
FORMAL PARAMETERS: 


BUF the buffer to which the Lines will be copied at the present 


location. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
EDTSS$A_ALT_BUF 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 

EXTERNAL ROUTINE 
EDT$$RD_CURLN : NOVALUE 
EDTS$START_INS : NOVALUE; 


EXTERNAL 


EDTSSA_CUR_BUF : REF TBCB_BLOCK, ' Current text buffer control block 
EDTSSA_ALT_BUF ; ! Alternate text buffer control block 
LOCAL 
SAVE _TBCB; 
SAVE _TBCB = .EDTSSA_CUR_BUF ; 
EDTSSA_CUR_BUF = EDTSS$A_ALT_BUF = .BUF; 
EDTS$RD_CUR : 
EDTSSSTART_INS (); 
EDTSS$A_CUR_BUF = .SAVE_TBCB; 
EDTSS$RB_CURLN (); ‘ 
END; ! of routine EDTSSSTART_CPY 


-TITLE EDTSWFSCOPY EDTSWFSCOPY - start a COPY operatio 


penne . -5 


Sbesb00 ED Tess ART CPY’ = Starts COPY operation if3e ats 7 93: 33; if bt SkSUMSRAS! eReCeD dT. OSRCSUFSCOPY.BLIZ1oo* (33 


«IDENT \V04-000\ 


.EXTRN EDTSSRD_CURLN, EDTSS$START_INS 
“EXTRN EDTS$A_CUR_BUF, EDTSSA_ALT_BUF 


-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 


001C 000 ENTRY EDTSSSTART_CPY, Save R2,R3,R4 3 0656 
ocean 8 9E BS MOVAB EDTS$S$RD_CU é 
00 § 00 MOVAB EDTS$$A_CUR_BU R3 3 
63 D 1 MOVL EDTS$A-CUR-BUF, SAVE_TBCB 3 9704 
AC D 1 MOVL BUF RO : 0702 
000000006 09 2 D 1 MOVL RO, EDT$$A_ALT_BUF 3 
6 DO OOO1E MOVL RO, EDT$$A_CUR- BUF : 
64 0 FB 00021 CALLS #0, EDTSSRB_CURLN : 0703 
000000006 9 9 FB 0024 CALLS #0, EDTSSSTART_INS 3 0704 
6 DO 00028 MOVL SAVE_TBCB corn CUR_BUF 3: 0705 
00 FB 0002E CALLS #0, EDT$SRD_C : 0706 
04 00031 RET : 0707 


; Routine Size: 50 bytes, Routine Base: _EDTSCODE + 0000 


138 0708 1 
139 0709 1 !<BLF/PAGE> 
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H 
EDTSWFSCOPY EDTSWFSCOPY = start a COPY operetion 16-Sep-1984 VAX=11 Bliss-32 V4.0-74 Pa 5 ED 
Ou 008 EDTSSSTART_CPY = start a copy operation 14- ~8ep -1984 95: 33:32 DISKSVMSMASTER: choi SRC Iw SCOPY. BLI;1 — (4) Vv 
: 1) a } END ! of module EDTSWFSCOPY ; 
: 14 712 0 ELUDOM 
; PSECT SUMMARY ; 
3 Name Bytes Attributes ; 
;  LEDTSCODE 50 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics 2 
Be eae math, omy BAS gee 5 Slane Symbols -------- Pages Processing 3 
; File Total Loaded Percent Mapped Time : 
; ~$355$DUAz8: EDT.SRCJEDT.L32;1 377 24 6 40 00:00.2 : 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
COMMAND QUALIFIERS : 
3 BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/L1S=L1S$: WF SCOPY/0BJ=0BJ$: WF SCOPY MSRC$: WF SCOPY.BLI/UPDATE=(ENHS$: WF SCOPY : 
> Run Time: 0:09.4 : 
3; Elapsed Time: 0:11.5 3 
3 Lines/CPU Min: 5 : 
3 Ronenee/CPY-Aia: 12346 3 
3 saneey Used: 58 pages : 
3; Compilation Complete : 


Size: 50 code + 0 data bytes. 
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